#!/usr/bin/perl

use CGI qw(:standard);
use JSON; 

my $palabra = param('palabra'); 


print header( -type => 'application/json' );

  my $json = new JSON();  # will write to stdout 
my $json->{"entries"} = $palabra;
my $json_text = to_json($json);
print $json_text;
print "\n";
